perm filename CAN.TES[VLI,LSP] blob sn#381953 filedate 1978-09-08 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(de foo (a b) (cons (car b) (member a b)))
C00003 ENDMK
CāŠ—;
(de foo (a b) (cons (car b) (member a b)))
(de foo1 (x)
  (cond ((null x) nil)
        (t (cons ((lambda (x) (foo1 x)) (foo1 (cdr x)))
                 (foo1 (cdr x))))))